home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / animat2a / frmanite.frm next >
Text File  |  1999-10-06  |  3KB  |  108 lines
  1. VERSION 5.00
  2. Object = "{220F55E8-7AAE-11D3-9D68-F74ED5721646}#17.0#0"; "TAni.ocx"
  3. Begin VB.Form FrmAniGif 
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Gif Animation"
  6.    ClientHeight    =   4920
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   4410
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4920
  14.    ScaleWidth      =   4410
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   3  'Windows Default
  17.    Begin TAni.TMaxAni TMaxAni1 
  18.       Height          =   375
  19.       Left            =   1800
  20.       TabIndex        =   5
  21.       Top             =   120
  22.       Width           =   2535
  23.       _ExtentX        =   4471
  24.       _ExtentY        =   661
  25.    End
  26.    Begin VB.Frame Frame1 
  27.       Height          =   4695
  28.       Left            =   0
  29.       TabIndex        =   0
  30.       Top             =   0
  31.       Width           =   1695
  32.       Begin VB.DriveListBox Drive1 
  33.          Height          =   315
  34.          Left            =   120
  35.          TabIndex        =   4
  36.          Top             =   600
  37.          Width           =   1455
  38.       End
  39.       Begin VB.DirListBox Dir1 
  40.          Height          =   2115
  41.          Left            =   120
  42.          TabIndex        =   3
  43.          Top             =   960
  44.          Width           =   1455
  45.       End
  46.       Begin VB.FileListBox File1 
  47.          Height          =   1455
  48.          Left            =   120
  49.          Pattern         =   "*.gif"
  50.          TabIndex        =   2
  51.          Top             =   3120
  52.          Width           =   1455
  53.       End
  54.       Begin VB.TextBox Text1 
  55.          Height          =   285
  56.          Left            =   120
  57.          TabIndex        =   1
  58.          Top             =   240
  59.          Width           =   1455
  60.       End
  61.    End
  62. End
  63. Attribute VB_Name = "FrmAniGif"
  64. Attribute VB_GlobalNameSpace = False
  65. Attribute VB_Creatable = False
  66. Attribute VB_PredeclaredId = True
  67. Attribute VB_Exposed = False
  68. Public FileSelect$
  69. Private Sub Dir1_Change()
  70. On Error Resume Next
  71. File1.Path = Dir1.Path
  72. End Sub
  73.  
  74. Private Sub Drive1_Change()
  75. On Error Resume Next
  76. Dir1.Path = Drive1.Drive
  77. End Sub
  78.  
  79. Private Sub File1_Click()
  80. Text1.Text = File1.FileName
  81. If Len(File1.Path) > 3 Then
  82.     FileSelect$ = File1.Path & "\" & File1.FileName
  83. Else
  84.     FileSelect$ = File1.Path & File1.FileName
  85. End If
  86. Me.Caption = FileSelect$
  87. End Sub
  88.  
  89. Private Sub File1_DblClick()
  90. On Error Resume Next
  91. TMaxAni1.FileName = FileSelect$
  92. TMaxAni1.ShowGif
  93. ResizeForm
  94. End Sub
  95. Sub ResizeForm()
  96. If TMaxAni1.Height > Frame1.Height Then
  97.     Me.Height = TMaxAni1.Height + TMaxAni1.Top + 500
  98. Else
  99.     Me.Height = 5300
  100. End If
  101. If TMaxAni1.Width > 2500 Then
  102.     Me.Width = TMaxAni1.Width + Frame1.Width + 300
  103. Else
  104.     Me.Width = 4500
  105. End If
  106. End Sub
  107.  
  108.